   1 .RACES
NT=0;CLEAR 
   1 .RACES
   2 .(C) 1980 R.C. TIETJENS
   3 CLEAR 
   4 :RETURN 
   5 NT=1
   6 *PRINT 
   7 .
  30 R=RND (10)
  40 IF R>6 R=7
  51 GOSUB R×100
  60 FOR T=0TO 500;NEXT T
  70 GOSUB 999
  80 RUN 
 100 PRINT "DWARF
 105 S=RND (5);GOSUB 800
 110 PRINT "+1 CONSTITUTION
 120 PRINT "-1 CHARISMA (VS. NON-     DWARVES)
 130 PRINT "NO MAGIC SPELLS
 131 GOSUB 999
 132 GOSUB 900;PRINT "75%
 133 GOSUB 910;PRINT "75%
 134 GOSUB 920;PRINT "67%
 135 GOSUB 930;PRINT "50%
 136 GOSUB 940;PRINT "50%";GOSUB 999
 137 GOSUB 850;PRINT "ORCS, HALF-ORCS, GOBLINS & HOBGOBLINS
 138 GOSUB 870;GOSUB 875
 150 GOSUB 980
 160 PRINT " * +10 +15 * * * -10 -5
 190 GOTO 1100
 200 PRINT "ELF
 205 M=90
 210 GOSUB 710
 215 IF M=30GOTO 250
 220 PRINT "DEXTERITY +1
 230 PRINT "CONSTITUTION -1
 240 PRINT "MOVE SILENTLY 66 2/3%
 250 PRINT 'RESIST "SLEEP" AND "CHARM" ',#3,M,'%
 260 GOSUB 980
 270 IF M=90PRINT "+5 -5 * +5 +10 +5 * *
 280 IF M=30PRINT "+10 * * * +5 * * *
 290 GOTO 1100
 300 PRINT "GNOME
 310 S=RND (5);GOSUB 800
 320 GOSUB 900;PRINT "80%
 330 GOSUB 950;PRINT "70%
 340 GOSUB 940;PRINT "60%
 350 GOSUB 960;PRINT "50%
 355 GOSUB 999
 360 GOSUB 850;PRINT "KOBOLDS & GOBLINS
 370 GOSUB 870;PRINT "GNOLLS, BUGBEARS,";GOSUB 875
 375 GOSUB 980;PRINT " * +5 +10 +5 +5 +10 -15 *
 380 GOTO 1100
 400 PRINT "HALF-ELVEN
 410 M=30;GOTO 210
 500 PRINT "HALFLING
 505 S=RND (3);GOSUB 800
 506 B=RND (5);IF B=1PRINT "FALLOHIDE
 507 IF (B=2)+(B=3)PRINT "HARFOOT
 508 IF B>3PRINT "STOOR (STOUT)
 510 PRINT "STRENGTH -1
 520 PRINT "DEXTERITY +1
 530 GOSUB 900;PRINT "75%
 540 GOSUB 960;PRINT "50%
 560 GOSUB 980;PRINT "+5 +5 +5 +10 +15 +5 -15 -5
 565 IF B<4PRINT "30 FOOT ",
 570 GOTO 1100
 600 PRINT "HALF-ORC
 610 GOSUB 710
 620 PRINT "STRENGTH +1
 630 PRINT "CONSTITUTION +1
 640 PRINT "CHARISMA -2 (VS. NON-HALF-ORCS)
 645 GOSUB 980;PRINT "-5 +5 +5 * * +5 +5 -10
 650 GOTO 1100
 700 CY=16;PRINT "HUMAN
 710 S=RND (2)
 800 IF S=1CY=CY+8;CX=0;PRINT "FEMALE
 810 RETURN 
 850 PRINT "+1 TO HIT:";RETURN 
 870 PRINT "-4 TO ATTACKS BY:";RETURN 
 875 PRINT "OGRES, OGRE MAGI, TROLLS, GIANTS, & TITANS
 880 RETURN 
 900 PRINT "DETECT SLOPE ",;RETURN 
 910 PRINT "DETECT NEW STONEWORK ",;RETURN 
 920 PRINT "DETECT SLIDING/SHIFTING   STONEWORK ",;RETURN 
 930 PRINT "FIND STONEWORK TRAPS ",;RETURN 
 940 PRINT "KNOW DEPTH ",;RETURN 
 950 PRINT "FIND UNSAFE STRUCTURE ",;RETURN 
 960 PRINT "KNOW DIRECTION ",;RETURN 
 970 PRINT "MOVE SILENTLY (ALONE, NON-METAL ARMOR) ",;RETURN 
 980 PRINT ;PRINT "THIEF BONUSES:";RETURN 
 999 IF TR(1)=0IF &(22)=0IF &(21)=0IF &(23)=0GOTO 999
1000 CLEAR ;RETURN 
1100 PRINT "INFRAVISION
1110 RETURN 
:RETURN ;RUN 
